﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Imports MySql.Data.MySqlClient
Public Class ConfigComplementosFact
    Public Shared Function Build(ByVal dr As MySqlDataReader) As ConfigComplementosBE
        Dim tmpConfigComplementos As ConfigComplementosBE = New ConfigComplementosBE()
        Try
            With tmpConfigComplementos
                .Id = convertDTFromDb.convertInt32(dr.Item("Id"))
                .CveComp = convertDTFromDb.ConvertString(dr.Item("CveComp"))
                .CveConfig = convertDTFromDb.ConvertString(dr.Item("CveConfig"))
                .Valor = convertDTFromDb.ConvertString(dr.Item("Valor"))
            End With
            Return tmpConfigComplementos
        Catch ex As Exception
            Throw
        Finally
            tmpConfigComplementos = Nothing
        End Try
    End Function
End Class
